cyber.net interactivo 3/inter@ivo 1996-04.iso/cybint3/bin/ano95.dxr/00019.ls

Text File | 1996-03-21 | 3.6 KB | 139 lines

on exitFrame
  if the mouseCast = 48 then
    go("naveg")
  end if
  if (the mouseCast = 14) and (the visible of sprite 3 = 0) then
    set the visible of sprite 3 to 1
  else
    if (the mouseCast <> 14) and (the visible of sprite 3 = 1) then
      set the visible of sprite 3 to 0
    end if
  end if
  if (the mouseCast = 15) and (the visible of sprite 5 = 0) then
    set the visible of sprite 5 to 1
  else
    if (the mouseCast <> 15) and (the visible of sprite 5 = 1) then
      set the visible of sprite 5 to 0
    end if
  end if
  if (the mouseCast = 16) and (the visible of sprite 7 = 0) then
    set the visible of sprite 7 to 1
  else
    if (the mouseCast <> 16) and (the visible of sprite 7 = 1) then
      set the visible of sprite 7 to 0
    end if
  end if
  if (the mouseCast = 17) and (the visible of sprite 9 = 0) then
    set the visible of sprite 9 to 1
  else
    if (the mouseCast <> 17) and (the visible of sprite 9 = 1) then
      set the visible of sprite 9 to 0
    end if
  end if
  if (the mouseCast = 18) and (the visible of sprite 11 = 0) then
    set the visible of sprite 11 to 1
  else
    if (the mouseCast <> 18) and (the visible of sprite 11 = 1) then
      set the visible of sprite 11 to 0
    end if
  end if
  if (the mouseCast = 26) or (the mouseCast = 27) then
    if the visible of sprite 23 = 0 then
      set the visible of sprite 23 to 1
    end if
  else
    set the visible of sprite 23 to 0
  end if
  if (the mouseCast = 37) or (the mouseCast = 38) then
    if the visible of sprite 28 = 0 then
      set the visible of sprite 28 to 1
      set the visible of sprite 29 to 1
    end if
  else
    set the visible of sprite 28 to 0
    set the visible of sprite 29 to 0
  end if
  go(the frame)
end

on mouseDown
  if the mouseCast = 14 then
    set the visible of sprite 2 to 1
  end if
  if the mouseCast = 15 then
    set the visible of sprite 4 to 1
  end if
  if the mouseCast = 16 then
    set the visible of sprite 6 to 1
  end if
  if the mouseCast = 17 then
    set the visible of sprite 8 to 1
  end if
  if the mouseCast = 18 then
    set the visible of sprite 10 to 1
  end if
  set i to 20
  set z to 12
  repeat while i < 25
    if the mouseCast = i then
      set the visible of sprite z to 0
    end if
    set i to i + 1
    set z to z + 1
  end repeat
end

on mouseUp
  if the visible of sprite 2 = 1 then
    set i to 12
    repeat while i < 17
      set the visible of sprite i to 0
      set i to i + 1
    end repeat
    set the visible of sprite 2 to 0
    set the visible of sprite 12 to 1
  end if
  if the visible of sprite 4 = 1 then
    set i to 12
    repeat while i < 17
      set the visible of sprite i to 0
      set i to i + 1
    end repeat
    set the visible of sprite 4 to 0
  end if
  if the visible of sprite 6 = 1 then
    set i to 12
    repeat while i < 17
      set the visible of sprite i to 0
      set i to i + 1
    end repeat
    set the visible of sprite 6 to 0
    set the visible of sprite 14 to 1
  end if
  if the visible of sprite 8 = 1 then
    set i to 12
    repeat while i < 17
      set the visible of sprite i to 0
      set i to i + 1
    end repeat
    set the visible of sprite 8 to 0
    set the visible of sprite 15 to 1
  end if
  if the visible of sprite 10 = 1 then
    set i to 12
    repeat while i < 17
      set the visible of sprite i to 0
      set i to i + 1
    end repeat
    set the visible of sprite 10 to 0
    set the visible of sprite 16 to 1
  end if
  if (the mouseCast = 26) or (the mouseCast = 27) then
    if the visible of sprite 23 = 0 then
      set the visible of sprite 23 to 1
    end if
  else
    set the visible of sprite 23 to 0
  end if
end